home *** CD-ROM | disk | FTP | other *** search
/ Internet.Works 39 / Issue 39.iso / pc / Splash / 00001.ls next >
Encoding:
Text File  |  2000-08-10  |  288 b   |  14 lines
  1. on AdChange
  2.   global gAdvertCounter, gAdvert, gAdvertTotal
  3.   if gAdvert = gAdvertTotal then
  4.     gAdvert = 1
  5.   else
  6.     if gAdvert < gAdvertTotal then
  7.       gAdvert = gAdvert + 1
  8.     end if
  9.   end if
  10.   sprite(100).member = member(gAdvert, "Advert")
  11.   updateStage()
  12.   gAdvertCounter = 0
  13. end
  14.